Windows 6-Pak - Disc 5/Windows 6-Pak (InfoMagic) (Disc 5) (1999).ISO/Misc-Programming-Tools/regen01.exe/SOURCE.ZIP/main.dfm/main.txt

Text File | 1998-09-02 | 8.0 KB | 363 lines

object Form1: TForm1
  Left = 178
  Top = 142
  Width = 559
  Height = 333
  HelpContext = 10
  Caption = 'Registry key enumerator'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 551
    Height = 49
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 430
      Height = 49
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvNone
      TabOrder = 0
      object Panel6: TPanel
        Left = 353
        Top = 1
        Width = 76
        Height = 47
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 1
        object el_cbxMaxDepth: TEnhLabel
          Left = 4
          Top = 7
          Width = 53
          Height = 13
          Caption = '&Max depth:'
          FocusControl = cbxMaxDepth
        end
        object cbxMaxDepth: TLblComboBox
          Left = 4
          Top = 22
          Width = 64
          Height = 21
          Hint = 'Recursion'
          ItemHeight = 13
          Items.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5'
            '(no limit)')
          TabOrder = 0
          Text = '1'
          OnChange = cbxMaxDepthChange
          LabelPos = lpTop
          LabelMargin = 2
          LabelComponent = el_cbxMaxDepth
        end
      end
      object Panel7: TPanel
        Left = 1
        Top = 1
        Width = 352
        Height = 47
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object el_cbxKey: TEnhLabel
          Left = 8
          Top = 7
          Width = 21
          Height = 13
          Caption = '&Key:'
          FocusControl = cbxKey
        end
        object cbxKey: TLblComboBox
          Left = 8
          Top = 22
          Width = 357
          Height = 21
          Hint = 'Full registry key'
          ItemHeight = 13
          TabOrder = 0
          LabelPos = lpTop
          LabelMargin = 2
          LabelComponent = el_cbxKey
        end
      end
    end
    object Panel4: TPanel
      Left = 430
      Top = 0
      Width = 121
      Height = 49
      Align = alRight
      BevelInner = bvRaised
      BevelOuter = bvNone
      TabOrder = 1
      object sbStop: TSpeedButton
        Left = 8
        Top = 22
        Width = 21
        Height = 21
        Hint = 'Stop (alt-s)'
        Caption = 'X'
        Enabled = False
        OnClick = sbStopClick
      end
      object btnEnum: TButton
        Left = 38
        Top = 22
        Width = 75
        Height = 21
        Hint = 'Go!'
        Caption = 'E&numerate'
        TabOrder = 0
        OnClick = btnEnumClick
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 49
    Width = 551
    Height = 238
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 1
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 551
      Height = 219
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel3'
      TabOrder = 0
      object RichEdit1: TRichEdit
        Left = 0
        Top = 0
        Width = 551
        Height = 219
        Align = alClient
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 200000000
        ParentFont = False
        PlainText = True
        PopupMenu = EditPopUp
        ScrollBars = ssBoth
        TabOrder = 0
        WordWrap = False
      end
    end
    object StatusBar1: TStatusBar
      Left = 0
      Top = 219
      Width = 551
      Height = 19
      Panels = <
        item
          Text = 'Processing key : '
          Width = 50
        end>
      SimplePanel = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 117
    Top = 114
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object OpenRegedit1: TMenuItem
        Caption = 'Open &Regedit'
        ShortCut = 0
        OnClick = OpenRegedit1Click
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Open1: TMenuItem
        Caption = '&Open'
        ShortCut = 0
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = '&Save'
        ShortCut = 0
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As'
        ShortCut = 0
        OnClick = SaveAs1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      OnClick = Edit1Click
      object copy1: TMenuItem
        Caption = '&Copy'
        ShortCut = 0
        OnClick = copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        ShortCut = 0
        Visible = False
        OnClick = Paste1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Find1: TMenuItem
        Caption = '&Find'
        ShortCut = 16454
        OnClick = Find1Click
      end
      object FindNext1: TMenuItem
        Caption = 'Find Next'
        ShortCut = 114
        OnClick = FindNext1Click
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Selectall1: TMenuItem
        Caption = '&Select all'
        ShortCut = 0
        OnClick = Selectall1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object TextOnly1: TMenuItem
        Caption = '&Strings Only'
        ShortCut = 0
        OnClick = TextOnly1Click
      end
      object DefaultsOnly1: TMenuItem
        Caption = '&Defaults Only'
        ShortCut = 0
        OnClick = DefaultsOnly1Click
      end
      object Fullkeypaths1: TMenuItem
        Caption = '&Full key paths'
        ShortCut = 0
        OnClick = Fullkeypaths1Click
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Other1: TMenuItem
        Caption = '&Other Options'
        ShortCut = 0
        OnClick = Other1Click
      end
    end
    object Tools1: TMenuItem
      Caption = '&Tools'
      ShortCut = 0
      object BackupRegistry1: TMenuItem
        Caption = '&Backup Registry'
        ShortCut = 0
        OnClick = BackupRegistry1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object HelpTopics1: TMenuItem
        Caption = '&Help Topics'
        ShortCut = 0
        OnClick = HelpTopics1Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object AboutRegenumerator1: TMenuItem
        Caption = '&About Reg Enumerator'
        ShortCut = 0
        OnClick = AboutRegenumerator1Click
      end
    end
  end
  object FormStorage1: TFormStorage
    StoredProps.Strings = (
      'DefaultsOnly1.Checked'
      'TextOnly1.Checked'
      'cbxKey.Items')
    Left = 209
    Top = 82
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    FileEditStyle = fsEdit
    Filter = 'Text|txt'
    Options = [ofOverwritePrompt, ofExtensionDifferent, ofPathMustExist]
    Left = 237
    Top = 150
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'txt'
    FileEditStyle = fsEdit
    Options = [ofNoValidate, ofPathMustExist, ofFileMustExist]
    Left = 321
    Top = 114
  end
  object EditPopUp: TPopupMenu
    OnPopup = EditPopUpPopup
    Left = 96
    Top = 209
    object Bold1: TMenuItem
      Caption = 'Bold'
      ShortCut = 0
      OnClick = Bold1Click
    end
    object Copy2: TMenuItem
      Caption = 'Copy'
      ShortCut = 0
      OnClick = Copy2Click
    end
  end
end